1 :
2 :REM LOADSTAR 2001 DEMO
3 :REM BY RICHARD J. DEROCHER
4 :
7 POKE679,0
8 POKE55,0:POKE56,152:CLR:PRINTCHR$(8)
9 PRINT"[147]":POKE53280,0:POKE53281,0
10 :
20 :REM LOAD FILES
30 :
50 DV=PEEK(186):IFDV<8THENDV=8
55 SYS57812"TRICKS.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
60 SYS57812"LSDEMO.SPR",DV,0:POKE780,0:POKE781,0:POKE782,62:SYS65493
70 SYS57812"SINUS ML",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
80 SYS57812"D.LSDEMO",DV,0:POKE780,0:POKE781,6:POKE782,64:SYS65493
82 SYS57812"QS DRIVER 9800",DV,0:POKE780,0:POKE781,0:POKE782,152:SYS65493
84 SYS57812"Q.PARTING",DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
87 SYS57812"DEMO FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
88 POKE53272,29
89 GOSUB5000:REM CREDITS
94 GOSUB1030:REM SET UP SCREEN
99 :
100 :REM SETUP VARIABLES
110 :
120 VI=53248:PG=64:SA=PG*256:SP=248:DR=38912
130 POKEVI+32,0:POKEVI+33,0
140 :
150 :REM SETUP SINUS INTERRUPT
160 :
170 SYSSA
180 :
190 :REM POKE SPRITE DATA
200 :
210 FORI=0TO7
220 POKE2040+I,248+I:REM SPRITE POINTERS
230 POKEVI+39+I,I+2:REM SPRITE COLORS
240 POKEVI+37,14:POKEVI+38,15
250 NEXT
260 POKEVI+29,0:REM X SIZE
270 POKEVI+23,0:REM Y SIZE
280 POKEVI+28,255:REM MULTICOLOR ON
290 POKEVI+37,1:REM MULTICOLOR 1
300 POKEVI+38,2:REM MULTICOLOR 2
310 POKEVI+21,255:REM TURN SPRITES ON
320 :
330 :REM START MUSIC
340 :
350 SYS DR+15:REM WEDGE ON
360 SYS DR+12:REM VOLUME ON
370 SYS DR,128,1:REM START PLAYING
380 POKEDR+40,1:REM AUTO REPEAT ON
440 GOSUB3210:REM KALEIDOSCOPE
1000 :
1010 :REM SET UP SCREEN
1020 :
1030 PRINT"[147]";
1040 PRINTSPC(12)"LOADSTAR 2001 DEMO"
1041 POKE214,23:PRINT:
1042 PRINTSPC(12)"PRESS KEY TO EXIT";
1050 POKE214,8:PRINT:X=1:GOSUB2000
1060 POKE214,8:PRINT:X=34:GOSUB2000
1070 RETURN
1997 :
1998 :REM PRINT COMMODORE LOGO
1999 :
2000 PRINTSPC(X)" CD"
2010 PRINTSPC(X)""CHR$(34)"#$%&"
2020 PRINTSPC(X)"[194][195][196][197][198]"
2030 PRINTSPC(X)" [163][164]"
2040 RETURN
2997 :
2998 :REM KNEES' KALEIDOSCOPE
2999 :
3210 M=1024+500:R=10:F=40:S=M+54272:Z=.
3220 POKE53371,0
3222 IFPEEK(679)THEN3280
3224 POKE679,1:DIMD(14,5)
3230 FORI=1TO13:FORJ=1TO4:READD(I,J):NEXT:NEXT
3240 DATA109,112,110,125,112,109,125,110,110,125,109,112,125,110,112,109
3250 DATA108,124,126,123,124,108,123,126,126,123,108,124,123,126,124,108
3260 DATA107,107,115,115,115,115,107,107,113,114,114,113,114,113,113,114
3270 DATA32,32,32,32
3280 REM
3290 X=INT(RND(0)*R):Y=INT(RND(0)*R)*F
3300 C=RND(0)*15+1:P=RND(0)*24+1:IFP>12THENP=13
3310 POKEM+X-Y,D(P,1):POKES+X-Y,C
3320 POKEM+X+Y,D(P,2):POKES+X+Y,C
3330 POKEM-X+Y,D(P,3):POKES-X+Y,C
3340 POKEM-X-Y,D(P,4):POKES-X-Y,C
3345 Z=Z+1:IFZ>325THENZ=.:GOSUB4000
3350 IFPEEK(198)=0THEN3290
3355 POKE53269,0:PRINT"[147]"
3360 SYSDR+6:SYSSA+3
3365 NEW
3997 :
3998 :REM CLEAR AREA
3999 :
4000 FORI=1TO22:POKE214,I:PRINT
4010 PRINTSPC(8)"                         ":NEXT:RETURN
4997 :
4998 :REM CREDITS
4999 :
5000 PRINT"[147]";:M$="LOADSTAR 2001 DEMO":GOSUB15000
5010 M$="BY RICHARD J. DEROCHER":GOSUB15000
5020 PRINT"";:M$="THIS DEMO WAS WRITTEN IN BASIC":GOSUB15000
5030 M$="AND USES THE FOLLOWING ML ROUTINES:":GOSUB15000
5040 PRINT"";:M$="JOHNNY'S TRICKS BY JOHNNY HARRIS":GOSUB15000
5050 PRINT"";:M$="SINUS BY STEVE EMSLEY":GOSUB15000
5060 PRINT"";:M$="QUICKSMITH PLAYER BY LEE NOVAK":GOSUB15000
5070 PRINT"";:M$="AND A BASIC ROUTINE:":GOSUB15000
5080 PRINT"";:M$="KNEES' KALEIDOSCOPE BY KNEES CALHOON":GOSUB15000
5090 PRINT"";:M$="PRESS ANY KEY TO START THE DEMO!":GOSUB15000
5095 SYS49811,2,.:
5100 GETA$:IFA$=""THEN5095
5103 SYS49203,150
5105 RETURN
9999 END
10000 D=PEEK(186):N$="LS DEMO 2001":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
14997 :
14998 :REM CENTER STRING
14999 :
15000 PRINTTAB((40-LEN(M$))/2)M$:RETURN